﻿'Params
'user (Required) : The username to fetch the events for.
'page (Optional) : The page number to scan to.
'limit (Optional) : The number of results to fetch per page. Defaults to 50.
'api_key (Required) : A Last.fm API key.

'Auth
' This service does not require authentication. 

Public Class UserGetPastEvents
	Inherits BaseRequest
    Dim user As String = ""
    Dim page As String = ""
    Dim limit As String = ""

	Public xmlresponse As XDocument = Nothing

    Public Sub New(user As String, page As String, limit As String)
        Me.user = user
        Me.page = page
        Me.limit = limit
    End Sub

	Public Sub sendRequest()
        InitializeMembers("user.getPastEvents")

        AddMember("user", user, True)
        AddMember("limit", limit, False)
        AddMember("page", page, False)
        AddMember("api_key", My.Settings.api_key, False)

        xmlresponse = sendPOSTResponse()
	End Sub

	'	Public Function getResponse() As AlbumGetInfoResponse
	'	Dim response As New AlbumGetInfoResponse
	'		response.album = New Album(xmlresponse.<lfm>.<album>.First)
	'		Return response
	'	End Function
End Class
